home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
dviware
/
dvidoc
/
dvidoc.sty
< prev
next >
Wrap
Text File
|
1994-08-08
|
5KB
|
205 lines
% This was sort of cribbed from lfonts.tex.
% I have no idea how close to correctness it is.
% However, it has worked on some files at 10pt.
%
% Unfortunately, I think that there is some kind of rounding
% problem in dvidoc itself.
%
% John Pavel, March 1987
% Extended by Rainer M. Sch"opf (RmS) <Schoepf@sc.ZIB-Berlin.de>
%
\typeout{Document style option `dvidoc', as of 14 Mar 1994.}
\ifx\selectfont\undefined
\def\rm{\protect\pdoc}
\def\it{\protect\pdoc}
\def\bf{\protect\pdoc}
\def\sl{\protect\pdoc}
\def\sf{\protect\pdoc}
\def\sc{\protect\pdoc}
\def\tt{\protect\pdoc}
\newfam\docfam
\def\pdoc{\@getfont\pdoc\docfam\@xpt{doc}}
\xpt
\def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
#2\setbox\strutbox\hbox{\vrule \@height.7\baselineskip
\@depth.3\baselineskip \@width\z@}%
\baselineskip\baselinestretch\baselineskip
\normalbaselineskip\baselineskip}
\else
\ifx\DeclareFontShape\undefined
\new@fontshape{doc}{m}{n}{%
<5>doc at5pt%
<6>doc at6pt%
<7>doc at7pt%
<8>doc at8pt%
<9>doc at9pt%
<10>doc%
<11>doc at10.95pt%
<12>doc at12pt%
<14>doc at14.4pt%
<17>doc at17.28pt%
<20>doc at20.74pt%
<24>doc at23.888pt
<25>doc at24.88pt%
<29>doc at28.664pt%
<34>doc at34.4pt%
<41>doc at41.28pt%
}{}
\let\family=\@gobble
\let\series=\@gobble
\let\shape=\@gobble
\else
\fontencoding{OT1}\let\fontencoding=\@gobble
\DeclareFontShape{OT1}{doc}{m}{n}{<-> fixed * doc}{}
\fi
\fontfamily{doc}\let\fontfamily=\@gobble
\fontseries{m}\let\fontseries=\@gobble
\fontshape{n}\let\fontshape=\@gobble
\global\let\mathversion\@gobble
\global\let\getanddefine@fonts\@gobbletwo
\fi
\font\docfont=doc
\count@=16
\loop
\ifnum\count@ >0
\advance\count@ by-1
\global\textfont\count@=\docfont
\global\scriptfont\count@=\docfont
\global\scriptscriptfont\count@=\docfont
\repeat
\baselineskip 12pt
\oddsidemargin 0pt \evensidemargin 0pt
\def\TeX{TeX}
\def\LaTeX{LaTeX}
\def\SliTeX{SliTeX}
\def\BibTeX{BibTeX}
\mathcode`\*="612A
\mathcode`\-="612D
\mathcode`\\="015C
\mathcode`\/="612F
\mathcode`\.="612E
\mathcode`\,="612C
%\mathcode`\{="417B
\mathcode`\|="417C
%\mathcode`\}="417D
\mathcode`\'="0127
\mathcode`\<="013C
\mathcode`\>="013E
\def\alpha{{\tt alpha}}
\def\beta{{\tt beta}}
\def\gamma{{\tt gamma}}
\def\delta{{\tt delta}}
\def\epsilon{{\tt epsilon}}
\def\zeta{{\tt zeta}}
\def\eta{{\tt eta}}
\def\theta{{\tt theta}}
\def\iota{{\tt iota}}
\def\kappa{{\tt kappa}}
\def\lambda{{\tt lambda}}
\def\mu{{\tt mu}}
\def\nu{{\tt nu}}
\def\xi{{\tt xi}}
\def\pi{{\tt pi}}
\def\rho{{\tt rho}}
\def\sigma{{\tt sigma}}
\def\tau{{\tt tau}}
\def\upsilon{{\tt upsilon}}
\def\phi{{\tt phi}}
\def\chi{{\tt chi}}
\def\psi{{\tt psi}}
\def\omega{{\tt omega}}
\def\varepsilon{{\tt varepsilon}}
\def\vartheta{{\tt vartheta}}
\def\varpi{{\tt varpi}}
\def\varrho{{\tt varrho}}
\def\varsigma{{\tt varsigma}}
\def\varphi{{\tt varphi}}
\def\Gamma{{\tt Gamma}}
\def\Delta{{\tt Delta}}
\def\Theta{{\tt Theta}}
\def\Lambda{{\tt Lambda}}
\def\Xi{{\tt Xi}}
\def\Pi{{\tt Pi}}
\def\Sigma{{\tt Sigma}}
\def\Upsilon{{\tt Upsilon}}
\def\Phi{{\tt Phi}}
\def\Psi{{\tt Psi}}
\def\Omega{{\tt Omega}}
\def\aleph{{\tt aleph}}
\def\ell{{\tt l}}
\def\Re{{\tt re}}
\def\Im{{\tt Im}}
\mathchardef\times="2178
\mathchardef\lbrace="417B %\let\{=\lbrace
\mathchardef\rbrace="417D %\let\}=\rbrace
\mathchardef\langle="413C
\mathchardef\rangle="413E
\mathchardef\ldotp="612E % ldot as a punctuation mark
\mathchardef\cdotp="622E % cdot as a punctuation mark
\mathchardef\colon="603A % colon as a punctuation mark
\def\rightarrow{{\tt ->}}
\def\leftarrow{{\tt <-}}
\def\Longleftrightarrow{{\tt <=>}}
\let\Longrightarrow\rightarrow
\let\Longleftarrow\leftarrow
\def\gg{{\tt >>}}
\def\ll{{\tt <<}}
\def\leq{{\tt <=}} \let\le=\leq
\def\geq{{\tt >=}} \let\ge=\geq
\def\equiv{{\tt ==}}
\def\lnot{{\tt not }}
\def\frac#1#2{((#1)/(#2))}
\def\"#1{\ifx #1aae\else
\ifx #1ooe\else
\ifx #1uue\else
\ifx #1AAe\else
\ifx #1OOe\else
\ifx #1UUe\fi\fi\fi\fi\fi\fi}
\def\ss{ss}
\let\left\empty
\let\right\empty
\def\sum{\mathop{\hbox{\rm sum }}\limits}
\def\prod{\mathop{\hbox{\rm prod }}\limits}
\def\log{\mathop{\hbox{\rm log }}}
\def\exp{\mathop{\hbox{\rm exp }}}
\let\bullet=*
\def\to{{\tt ->}}
\def\circ{{\tt\ o }}
\def\mid{{\tt |}}
\def\parallel{{\tt ||}}
\advance\jot by 5pt
\advance\skip\footins by\baselineskip
% move footnote rule 6pt higher
\def\footnoterule{\kern-9\p@
\hrule \@width 2in\kern 8.6\p@} % the \hrule is .4pt high
\renewcommand{\arraystretch}{2.0}
\let\xpt\relax
\let\xipt\relax
\let\xiipt\relax
\endinput